﻿
'Digite o NameSpace: ArtNoi
'Digite o nome da Classe de dominio: Venda


<Serializable()> _
Public Class Venda
    Inherits BaseDominio

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Venda
        Return MyBase.VendaDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.VendaDao.Salvar(Me)
    End Sub

#End Region

End Class

